* test/automated/eshell.el (eshell-test-command-result): Clean up when done

diff --git a/test/automated/eshell.el b/test/automated/eshell.el
index d5ebc5672817e16ee37cebd4be9af81a86226261..f9061ceb57ce13c4de69653186c98460ed404d0e 100644 (file)
--- a/test/automated/eshell.el
+++ b/test/automated/eshell.el
@@ -60,7 +60,9 @@
   "Like `eshell-command-result', but not using HOME."
   (let ((eshell-directory-name (make-temp-file "eshell" t))
         (eshell-history-file-name nil))
-    (eshell-command-result command)))
+    (unwind-protect
+        (eshell-command-result command)
+      (delete-directory eshell-directory-name t))))
 
 ;;; Tests: